home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / games2 / graalb.lha / 3.room < prev    next >
Text File  |  1996-03-28  |  9KB  |  236 lines
  1. /*                       This is a room file for GRAAL
  2. /*
  3. /*                                   3.room
  4. /*
  5. /*                          The Harbour in Byzantium
  6. /*
  7. /* RF usage: 1=seagull status, 2=number of times spoken to captain
  8. /*           3=captain has received gift, 6=weather, 4=shop sign status
  9. /*           5=dictionary/captain combo. 7=Which shop sign is actually out?
  10.  
  11. SECTION: 1
  12.  
  13. UPDATE: 6
  14.  
  15. BG_IFF: 3BG.IFF
  16.  
  17. START_POS: 1;$800D;455;104;R;1
  18. START_POS: 2;13;70;76;L;1
  19.  
  20. FLOOR: 1;81;76;120;120;1-1/2-2/3-2/4-4
  21. FLOOR: 2;0;90;480;120;1-1/2-2/3-3/4-4
  22. FLOOR: 3;180;76;480;120;1-2/2-2/3-3/4-2
  23. FLOOR: 4;0;82;120;120;1-1/2-2/3-2/4-4
  24.  
  25. EXIT: 1;450;50;480;120;479;114;To the\city
  26. EXIT: 2;60;37;68;74;64;76;Shabby\shed
  27.  
  28. CLPART: 3FG.IFF
  29.  
  30. /* 1 is ship
  31. ROOMBOBS: 1;1;0;0;193;73;0;0
  32. /* 2 is a fishing net
  33. ROOMBOBS: 1;2;194;0;38;24;0;0
  34. /* 3 is some reflections in the water
  35. /* ROOMBOBS: 3;4;75;168;85;0
  36. /* 4-8 is captain walking (4 is standing sideways)
  37. ROOMBOBS: 5;4;5;93;15;36;16;0
  38. /* 9-10 is captain bending down doing something
  39. ROOMBOBS: 2;9;4;132;30;22;30;0
  40. /* 11-16 is captain loosing hat
  41. ROOMBOBS: 6;11;64;132;28;22;30;0
  42. /* 17 is gangplank
  43. ROOMBOBS: 1;17;196;30;31;16;0;0
  44. /* 18 is beam and sail
  45. ROOMBOBS: 1;18;238;0;68;62;0;72
  46. /* 19-21 are arabic "sentences"
  47. ROOMBOBS: 1;19;4;158;56;21;0;0
  48. ROOMBOBS: 1;20;60;157;61;21;0;0
  49. ROOMBOBS: 1;21;125;157;51;21;0;0
  50. /* 22-23 is captain talking
  51. ROOMBOBS: 2;22;85;93;15;36;16;0
  52. /* 24 is captain facing forward.
  53. ROOMBOBS: 1;24;116;93;16;36;0;0
  54. /* 25 is horizon
  55. ROOMBOBS: 1;25;3;183;171;9;0;-30
  56. /* 26-27 are shop signs
  57. ROOMBOBS: 1;26;197;54;36;15;0;0
  58. ROOMBOBS: 1;27;197;69;23;15;0;0
  59. /* 28 Captain stretching out hand.
  60. ROOMBOBS: 1;28;132;93;16;36;0;0
  61. /* 29 Feather
  62. ROOMBOBS: 1;29;3;193;9;7;0;0
  63. /* 30 Captain securing hat
  64. ROOMBOBS: 1;30;148;93;16;36;0;0
  65. /* 31-33 Olaf using net
  66. ROOMBOBS: 3;31;15;194;22;38;22;0
  67. /* 34-35 Seagull sitting down
  68. ROOMBOBS: 2;34;84;196;13;9;15;0
  69. /* 36-38; Seagull in flight
  70. ROOMBOBS: 3;36;115;196;18;8;20;0
  71. /* 39-42 Olaf waving knife
  72. ROOMBOBS: 4;39;173;192;33;41;31;0
  73. /* 43-44 Captain hitting
  74. ROOMBOBS: 2;43;165;93;15;36;16;0
  75. /* 45-46 Sales signs
  76. ROOMBOBS: 2;45;237;67;19;28;20;0
  77. /* 52 Olaf talks!
  78. ROOMBOBS: 1;52;184;159;76;19;0;0
  79.  
  80. CLPART: Olaf_Extras.IFF
  81.  
  82. /* 47-51 Olaf getting hit
  83. ROOMBOBS: 5;47;130;2;31;47;32;0
  84.  
  85.  
  86. ROOMOBJ: 1;ship;3;-1;59;RBOB1;327;71;80;5;$800E; ;0;0;0;0;MID;WD;a;this;the
  87. ROOMOBJ: 2;horizon;3;-1;56;RBOB25;162;2;-45;40;12; ;0;0;85;-30;HIGH;-; ; ;the
  88. ROOMOBJ: 3;sign;3;-1;55;RBOB26;25;32;0;30;12; ;0;0;0;0;HIGH;WD;a;this;the
  89. ROOMOBJ: 4;sign;3;-1;54;RBOB27;84;44;00;30;12; ;0;0;0;0;HIGH;WD;a;this;the
  90. ROOMOBJ: 5;seagull;3;0;52;A 0,(RBOB35,100)(RBOB34,50)(RBOB35,200)(RBOB34,25);152;61;0;40;12; ;0;8;0;0;MID;AV;a;this;the
  91. ROOMOBJ: 6;sales\sign;3;0;51;RBOB45;84;74;0;15;12; ;0;0;0;0;MID;WD;a;this;the
  92.  
  93.  
  94. STATIC: 40;RBOB17;309;73
  95. STATIC: 41;RBOB18;316;72
  96.  
  97.  
  98. /* Check if Olaf is a small guy and if so, restore him
  99. DACT: IFRF 0,1=1;CUTSCENE 17,H
  100.  
  101. /* Display proper sales sign. See also DACTs in 2.room!
  102. DACT: IFRF 7=1;SHOW ROBJ6,84,74,DEF
  103. DACT: IFRF 7=2;SHOW ROBJ6,84,74,RBOB46
  104.  
  105. /* Add Rajah question to bartender dialogue
  106. DACT: OBJ1 5;SETOF 2=1;OBJ1
  107.  
  108. /* Captain's hat problem status
  109. DACT: IFRF 3=1;SHOW 15,244,58,PTRN 2
  110.  
  111. /* Show seagull on pollard
  112. DACT: IFRF 1=0;SHOW ROBJ5,152,61,DEF
  113. /* Show seagull on roof, make more floor space available
  114. DACT: IFRF 1=1;SHOW ROBJ5,50,27,DEF;FLOOR 1,61,76,480,120,1-1/2-2;FLOOR 2,0,82,480,120,1-1/2-2;NFLOOR 2
  115.  
  116. /* If Byzantium puzzle is solved, the ship and captain is gone!
  117. DACT: IFRF 2,4=4;HIDE ROBJ1;BOBOFF 40;BOBOFF 41;HIDE 15
  118.  
  119. /* Check the weather
  120. DACT: IFRF 6=1;COLOUR DLY,29,$678;COLOUR DLY,31,$555;COLOUR DLY,24,$555;COLOUR DLY,25,$666;COLOUR DLY,26,$666;COLOUR DLY,27,$777;COLOUR DLY,28,$777
  121.  
  122. /* LIGHTS! MUSIC! ACTION!
  123. DACT: TRACK Seagulls.track,LOOP,FILTER;LIGHTS ON
  124.  
  125. /* Captain dialogue
  126. LINE: 3;1;Oh, forget it! Wait here while I get a dictionary, will you?;I guess we just have to try something else.; 
  127. LACT: 3;1;BOBON 42,330,44,RBOB21;RESP S,3,          ;BOBOFF 42;CUTSCENE 3,H;SETOF 1=1
  128. LACT: 3;1;SETRF 4,3=1;EDLG
  129. LINE: 3;2;And the same to you!; ; 
  130. LACT: 3;2;BOBON 42,330,44,RBOB20;RESP S,3,          ;SHOW 15,330,84,RBOB4;BOBOFF 42
  131. LACT: 3;2;ADDOF 2;IFOF 2=3;DSET 3,+1,N2;EXIT
  132. LACT: 3;2;DSET 3,N2
  133. LINE: 3;3;Nice ship you have here.; ; 
  134. LACT: 3;3;BOBON 42,330,44,RBOB21;RESP S,3,          ;SHOW 15,330,84,RBOB4;BOBOFF 42
  135. LACT: 3;3;ADDOF 2;IFOF 2=3;DSET 3,+1,N3;EXIT
  136. LACT: 3;3;DSET 3,N3
  137. LINE: 3;4;Is this ship for hire?; ; 
  138. LACT: 3;4;BOBON 42,330,44,RBOB19;RESP S,3,          ;SHOW 15,330,84,RBOB4;BOBOFF 42
  139. LACT: 3;4;ADDOF 2;IFOF 2=3;DSET 3,+1,N4;EXIT
  140. LACT: 3;4;DSET 3,N4
  141. LINE: 3;5;Do you have any good tips on seagull usage?; ; 
  142. LACT: 3;5;BOBON 42,330,44,RBOB19;RESP S,3,          ;SHOW 15,330,84,RBOB4;BOBOFF 42
  143. LACT: 3;5;ADDOF 2;IFOF 2=3;DSET 3,+1,N5;EXIT
  144. LACT: 3;5;DSET 3,N5
  145.  
  146.  
  147. /*
  148. /* Action 0 - Exit
  149. /* ===============
  150. /*
  151. ACTION: 0;IFOBJ 1;MEXIT;GOTO 2,2
  152. ACTION: 0;IFOBJ 2;MEXIT;GOTO 4,1
  153. /*
  154. /* Action 1 - Give
  155. /* ===============
  156. /*
  157. ACTION: 1;IFOBJ2 ROBJ5;SAY If it wants something from me, it's probably coming after it anyway!;EXIT
  158. ACTION: 1;IFOBJ SOBJ4;IFOBJ2 15;SAY This can't possibly work!;SAY Oh, very well, let's have a go...;CUTSCENE 2,F;CUTSCENE 7,F;CUTSCENE 8,S;SETRF 3=1;EXIT
  159. ACTION: 1;IFOBJ2 15;IFRF 3=1;SAY I have done enough for him already.;SAY I am not in the charity business.;EXIT
  160. /* Another try to get feather from beneath seagull here. Handle like USE.
  161. ACTION: 1;IFOBJ 21;IFRF 1=0;VERB 3;REDO
  162. /* Trying out a few good ideas for gifts to the captain below.
  163. ACTION: 1;IFOBJ 21;IFOBJ2 15;SAY Yes, perhaps he could use a feather in his cap!
  164. ACTION: 1;IFOBJ 30;IFOBJ2 15;SAY OK. With his linguistic problems, it is worth a try!
  165. ACTION: 1;IFOBJ 21|30;IFOBJ2 15;CUTSCENE 2,F;CUTSCENE 9,F;CUTSCENE 3,S;CBOB 11;SAY That didn't help me very much...;EXIT
  166. /*
  167. /* Action 2- Pick up
  168. /* =================
  169. /*
  170. ACTION: 2;IFOBJ 14;IFOF 1=0;MOBJ;HANDLE;W 25;HANDLE -1;SAY I can't - The net has tied itself into a knot around one of the hooks!;EXIT
  171. ACTION: 2;IFOBJ 21;IFRF 1=0;SAY Not as long as that seagull is sitting there!;EXIT
  172. ACTION: 2;IFOBJ ROBJ5;SAY Just like that? Haven't you seen the beak??;EXIT
  173. /*
  174. /* Action 3 - Use
  175. /* ==============
  176. /*
  177. ACTION: 3;IFOBJ ROBJ1;IFOF 15,1=0;SAY I think somebody would be very upset if I did that - especially without asking!;EXIT
  178. ACTION: 3;IFOBJ ROBJ1;IFOF 15,1=1;SAY I really don't think I have persuaded the captain. Do you?;EXIT
  179. ACTION: 3;IFOBJ 14;IFOBJ2 15;SAY Perhaps if I was stronger... and a little more desperate.;EXIT
  180. ACTION: 3;IFOBJ 14;IFOBJ2 ROBJ5;IFRF 1=0;IFOF 1=0;VERB 2;OBJ2 0;REDO
  181. ACTION: 3;IFOBJ 14;IFOBJ2 ROBJ5;IFRF 1=0;IFOF 1=1;IFNOTCARR;MOBJ;HANDLE;PICK;HANDLE -1
  182. ACTION: 3;IFOBJ 14;IFOBJ2 ROBJ5;IFRF 1=0;IFOF 1=1;CUTSCENE 4,S;EXIT
  183. ACTION: 3;IFOBJ 14;IFOBJ2 ROBJ5;IFRF 1=1;SAY It's out of reach.;EXIT
  184. ACTION: 3;IFOBJ 21;IFRF 1=0;SAY I have to get my hands on it first.;EXIT
  185. ACTION: 3;IFOBJ 24;IFRF 1=0;IFOBJ2 ROBJ5;CUTSCENE 6,S;EXIT
  186. ACTION: 3;IFOBJ2 ROBJ5;SAY I'm not throwing anything at it that I may need later. The water is too close.;EXIT
  187. ACTION: 3;IFOBJ ROBJ5;SAY I can't get my hands on it. And even if I did, what do you suggest? Seagull stew?;EXIT
  188. ACTION: 3;IFOBJ 24;IFOBJ2 14;IFOF2 1=0;MOBJ 14;HANDLE;W 30;HANDLE -1;SETOF 14,1=1;SAY There - I think it is loose now.;EXIT
  189. ACTION: 3;IFOBJ 24;IFOBJ2 14;IFOF2 1=0;SAY I don't think the #OBJ1 is the right tool for the job.;EXIT
  190. ACTION: 3;IFOBJ 30;IFOBJ2 15;VERB 5;OBJ1 15;REDO
  191. /*
  192. /* Action 4 - Open
  193. /* ===============
  194. /*
  195. /*
  196. /* Action 5 - Talk to
  197. /* ==================
  198. /*
  199. ACTION: 5;IFOBJ 15;IFRF 3=1;SAY No, I have had enough of that!;EXIT
  200. ACTION: 5;IFOBJ 15;IFRF 5=1;SAY Not again!;EXIT
  201. ACTION: 5;IFOBJ 15;IFCARR 30;CUTSCENE 13,S;SETRF 5=1;EXIT
  202. ACTION: 5;IFOBJ 15;CUTSCENE 2,H;BOBON 42,330,44,RBOB19;RESP S,3,            ;SHOW 15,330,84,RBOB4;BOBOFF 42
  203. ACTION: 5;IFOBJ 15;IFOF 2=0;DSET 3,+2,+3,+4,+5;EXIT
  204. ACTION: 5;IFOBJ 15;DSET 3,+1;EXIT
  205. ACTION: 5;IFOBJ ROBJ5;SAY I don't think we are on speaking terms!;EXIT
  206. /*
  207. /* Action 6 - Push
  208. /* ===============
  209. /*
  210. ACTION: 6;IFOBJ ROBJ1;SAY It is duly secured.;EXIT
  211. /*
  212. /* Action 7 - Close
  213. /* ================
  214. /*
  215. /*
  216. /* Action 8 - Look at
  217. /* ==================
  218. /*
  219. ACTION: 8;MOBJ
  220. ACTION: 8;IFOBJ ROBJ1;SAY This looks like a safe enough ship to me.;W 50;SAY But it is not MY ship.;EXIT
  221. ACTION: 8;IFOBJ ROBJ2;SAY North... is where my home is.;SAY But it's a long way across the sea...;SAY ...and further still to Sweden!;EXIT
  222. ACTION: 8;IFOBJ ROBJ3;SAY It says: "Ali's Fish Bait and Tax-Free Shop".;EXIT
  223. ACTION: 8;IFOBJ ROBJ4;SAY It says: "Everything for the discerning traveller"!;EXIT
  224. ACTION: 8;IFOBJ ROBJ6;SAY Hmm... Seems something special is going on in the shop!;EXIT
  225. ACTION: 8;IFOBJ 15;SAY He looks like he keeps a sharp eye on things.;MOBJ;SAY Nice hat, too.;EXIT
  226. ACTION: 8;IFOBJ 21;IFRF 1=0;SAY I can't examine it properly as long as that monster of a seabird is sitting there!;EXIT
  227. ACTION: 8;IFOBJ ROBJ5;IFRF 1=0;SAY I am not going near that bird without some sort of weapon...;SAY ...it looks a little too vicious to me!;EXIT
  228. ACTION: 8;IFOBJ ROBJ5;IFRF 1=1;SAY It looks quite nice... from a distance.;EXIT
  229. /*
  230. /* Action 9 - Pull
  231. /* ===============
  232. /*
  233. ACTION: 9;IFOBJ 14;IFOF 1=0;MOBJ 14;HANDLE;W 30;HANDLE -1;SAY It doesn't help. It's still stuck to the hook.;EXIT
  234. ACTION: 9;IFOBJ 14;VERB 2;REDO
  235. /* End of room file.
  236.